(store_mode_line_string): Lisp_Object/int mixup.

diff --git a/src/xdisp.c b/src/xdisp.c
index afcce0b7b9fe039026c91e74744890c42d0abb6d..066f4fa0027c6ac8bbcf25d7ef01b133440dcb67 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -14104,7 +14104,7 @@ static int store_mode_line_string (string, lisp_string, copy_string, field_width
     }
   else 
     {
-      len = Flength (lisp_string);
+      len = XFASTINT (Flength (lisp_string));
       if (precision > 0 && len > precision)
        {
          len = precision;